%session("rnew")="rnew"%>
<%
dim xxid
xxid=trim(request("id"))
exec="select * from ly where id=" + CStr(xxid) + " "
Set RS = Server.CreateObject("ADODB.RecordSet")
rs.Open exec, Conn, 1, 2
y=rs("yd")
y=y+1
rs("yd")=y
rs.update
session("rtid")=xxid
%>
::留言板::
<%if rs("jh")=1 then
%> <%else%>·<%end if%>
|
">
|
标题:<%=rs("title")%> |
<%if rs("bl")=1 then
%><%=rs("name")%> <%else%><%=rs("name")%><%end if%> |
<%if rs("uploadfile")<>"" then%>
上传的图片: " align="top">
|
<%end if%>
 <%=rs("nei")%>
|
[ 发表时间:<%=rs("t")%>
]
|
">
|
|
|
<%
exec2="select * from ly where rt=" + CStr(xxid) + " order by id"
set rs2=conn.execute(exec2)
x=0
%>
<%do while (not rs2.EOF)%>
<%if rs2("jh")=1 then
%> <%else%>·<%end if%>
|
">
|
标题:<%=rs2("title")%> |
<%if rs2("bl")=1 then
%><%=rs2("name")%> <%else%><%=rs2("name")%><%end if%>
|
<%if rs2("uploadfile")<>"" then%>
上传的图片: " align="top">
|
<%end if%>
 <%=rs2("nei")%>
|
[ 发表时间:<%=rs2("t")%>
]
|
">
|
|
<%x=x+1%>
<%rs2.MoveNext%>
<%loop%>
|
::: 您 可 以 在 此
直 接 回 复 当 前 主 题 ::: |
|